home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / program / n_b_v203.zip / PUT-FB.DMO < prev    next >
Text File  |  1996-07-04  |  3KB  |  49 lines
  1. $if 0
  2.     ┌──────────────────────────╖                        PowerBASIC v3.20
  3.  ┌──┤          DASoft          ╟──────────────────────┬──────────────────╖
  4.  │  ├──────────────────────────╢    Copyright 1995    │ DATE: 1995-10-01 ╟─╖
  5.  │  │ FILE NAME   PUT-FB  .DMO ║          by          ╘════════════════─ ║ ║
  6.  │  │                          ║  Don Schullian, Jr.                     ║ ║
  7.  │  ╘══════════════════════════╝                                         ║ ║
  8.  │ A license is hereby granted to the holder to use this source code in  ║ ║
  9.  │ any program, commercial or otherwise,  without receiving the express  ║ ║
  10.  │ permission of the copyright holder and without paying any royalties,  ║ ║
  11.  │ as long as this code is not distributed in any compilable format.     ║ ║
  12.  │  IE: source code files, PowerBASIC Unit files, and printed listings   ║ ║
  13.  ╘═╤═════════════════════════════════════════════════════════════════════╝ ║
  14.    │                ....................................                   ║
  15.    ╘═══════════════════════════════════════════════════════════════════════╝
  16. $endif
  17.  
  18. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  19. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  20. $INCLUDE "DAS-NBV1.INC"                              '┌──────────────────────
  21. CLS                                                  '│
  22. SCREEN 12                                            '│
  23. GraphicSETUP                                         '│ don't forget this!
  24.                                                      '│
  25. BpC% = fBMPwords%( 8, 16 ) - 1                       '│ storage size
  26. DIM Font% ( BpC%, 255 )                              '│ storage array
  27. FOR C% = 0 TO 255                                    '│ 255 characters
  28.   LOCATE 1, 1 : PRINT CHR$(C%)                       '│ print chr to screen
  29.   fGetPArr 0, 0, 7, 15, Font%(0,C%), 0               '│ read plane 0 into
  30. NEXT                                                 '│  storage array
  31.                                                      '│
  32. T$ = " A quick brown fox jumps over the lazy dog. "  '│ a good test string
  33. SetForeground 15                                     '│ set foreground color
  34.                                                      '│
  35. FOR Row% = 0 TO 239 STEP 16                          '│ 15 iterations
  36.   SetBackground Bg?                                  '│ set background color
  37.   Col% = 0                                           '│ reset column
  38.   FOR P% = 1 TO LEN( T$ )                            '│ print the string
  39.     A% = ASCII( MID$( T$, P% ) )                     '│ get ASCII value
  40.     PutFBarr Col%, Row%, Font%(0,A%)                 '│ put chr from array
  41.     INCR Col%, Font%(0,A%)                           '│ move columns
  42.   NEXT                                               '│
  43.   INCR Bg?, 1                                        '│ next background
  44. NEXT                                                 '│
  45.                                                      '│
  46. WHILE NOT INSTAT : WEND                              '│
  47. CLS                                                  '│
  48. SCREEN 0                                             '└──────────────────────
  49.